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President’s Annual Report 


The past 12 months have seen the stabilisation and steady membership growth of 
A.C.EUN.S.W.). In the following report, I will highlight significant events during the 
committee’s term of office. 


The monthly general meetings have had several venue changes, however, that has not 
affected the quality of presentations or software demonstrations. There were talks on wide 
ranging subjects which, hopefully, catered for all tastes, Our thanks go to those members 
who obviously spent much time and effort in preparing their subjects. I was pleased to see 
Futuretronics represented at recent meetings and prepared to listen to our problems, 


The only organised social event was a well supported trip to see the movie TRON. In March, 
we participated in the 1st Australian Personal Computer Show. The area allocated to us at 
Centrepoint was small and out of the way, but lots of interest was shown in the club’s 
activities. This was reflected by the number of people who joined on the spot. With the 
experience gained, we look forward to attending further shows. 


The club’s library has grown significantly and now has a wide range of books, technical 
manuals and magazines that can be viewed at general meetings. The Software Exchange has 
successfully negotiated blank media purchase at very competetive prices and this resulted in 
high sales of disks and cassettes, Sales of the four Software Exchange disks have been 
slow. 


The full financial report provided by the Secretary/Treasurer shows a healthy balance. 
However, there are some points that must be considered. Rental of premises, with the 
exception of one month, has been free. Magazine printing costs were subsidised by Computer 
Wave for some time. Expense items already agreed to but not yet incurred include Data 
Perfect for the club’s records and a modem for the Bulletin Board Service. Additionally, 
advertising income from INSIDE INFO has been poor and printing costs high, therefore 
careful planning needs to be done to ensure the current financial position continues, 


The greatest achievement has been the scheduled production of INSIDE INFO, Tremendous 
amounts of work are associated with collection and writing of articles, assembling the 
magazine and folding and posting. The quality of articles, general information and programs 
is exceptional. While thanking all of you who have contributed to its success, special thanks 
must be given to Garry Francis, who has been the driving force behind its production. 


Some 12 months ago, it was decided to investigate setting up our own Bulletin Board Service. 
I am pleased to report that this idea is now close to reality, Futuretronics have kindly 
loaned us most of the hardware, as well as allowing the use of their facilities to test 
software. If you are unsure of what the BBS is all about, INSIDE INFO will regularly carry 
articles on communications concepts and the BES. 


I believe the future of A.C.E.AN.S.W.) is now assured. However, don’t be complacent — 
participate in your club. There are many ways to help and you don’t have to be an expert. 


In closing; I would like toa thank Bernhard Kirschner for Computer Wave's support of 
A.C.E.(N.S.W.) throughout the year. The committee also thanks those members who 
contributed in many different ways. Finally, my thanks goes to each of the committee 
members who gave their support and cooperation throughout the year. 

~ Tony Reeve 





Editorial 


As usual, the November meeting was our A.G.M. Tollowing a report from the retiring 
President and Secretary/Treasurer, we elected anew committee for 19754, The new 
committee consists of: 
Tresident! Tony Reeve 
Vice President! Barry Williams 
Secretary/Treasurer: Anthony Dinallo 
Meetings Organiser: Peter Damford 
Software Uxchange (Cassette)} Peter Dickeson 
Software Exchange (Disk)! Drian Simmons 
Librarian: Jeff Maddock 
GES Operator! Roberto Romano 


The more observant readers amongst you may notice that there is no Editor! I declined 
re-nomination, as I have some more mundane things to do — like finding money to feed myself 
and pay the rent, This will be my last issue of INSIDE INFO, If anybody would like to take 
over as Editor, please ring Tony Reeve on (02) 452-2974, In the meantime, Chris Fitzgerald 
has been elected (hoodwinked?) to take over on a temporary basis so that INSIDE INFO will 
continue uninterrupted. Please give him all the support you possibly can! 


Do you realise that INSIDE INFO has been going for over 14 months? And A.C.E.(N.S.W,) has 
been around for almost two years? It actually seems a lot longer to me. During that period, 
I have published over 200 pages of material - not including ads! This includes about 40 
feature programs written in DASIC, the same amount again of subroutines, program 
fragments and one liners also in DASIC, 5 assembly language listings, a few FORTH screens 
and much more! Tony has highlighted some of our other achievements from the past 12 
months in his annual report. 


In contrast, I thought it would be interesting to take a look at some of our 
non-achievements, particularly with reference to INSIDE INFO. SoI took a look through all 
the back issues and was pleasantly surprised at how few there were. There was a number of 
times that I had promised an article, but it had never eventuated, On a number of occasions, 
this was because an article had been promised to me, but the author never fronted up with 
the goods. On others, I had planned writing something myself providing there was enough 
interest, but on each of these occasions, there was not one single response! I could only 
assume that the subject was of no interest, hence I would have been wasting my time to write 
anything. The same apathy was exhibited when we asked for help or feedback on a number of 
club projects. Most of these never came to fruition, 


There is a good reason for pointing all this out. If you are too lazy to write articles or 
provide the Editor with some feedback, you will only get a second rate magazine. Keep this 
in mind over the next 12 months, 


I have always been battled to find enough material for each issue of INSIDE INFO. In the 
very first issue, I said that "If every member submitted only one article or program per year, 
there would be sufficient material to sustain a reqular newsletter". Well I’ve done my bit 
for the next 20 years. How about you? Ilave you submitted an article or review? 
Approximately 200 members haven’t done their share. That’s pitiful! 


Having said all that, what does the future hold? For starters, we hope to spread the 
Editor’s massive workload amongst more people. If you can help by writing articles or 
reviews, typing in programs from other newsletters, folding magazines at distribution time, 
etc. etc. etc., then let Chris or Tony know. Just drop them a line at the usual address or see 
them at a meeting. 


We hope to reprint more material from overseas users’ groups and it would be particularly 
nice if we could provide a game in each issue. Any offers? 
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And Ill be back with two columns - just when you thought you were rid of me. There will be 
a regular column on Adventures and an irregular one with answers to your programming 
problems. The latter will be in direct response to your letters, If you have any question on 
programming the ATARI - any question at all - just put it in writing and send it to The 
Editor at our usual address, He will pass it on tome, Please be specific. I can’t answer 
vague questions like "What does a computer do?" or “What is Player-Missile graphics?". I 
will probably print your question, but if you’d rather I didn’t print your name, just say so. If 
you want a personal response, include a stamped, self addressed envelope, Also make sure 
to include your phone number in case I need to ring you for clarification of some point. 


Anthony Dinallo has promised us some hardware articles for next issue, so watch out for 
that. 


In closing, I’d like to give a very big thankyou to all our contributors over the last 12 
months. They were (in alphabetical order) Geoff Ashworth, Jon Atack, Jamie Athas, Peter 
Bamford, Gavin Chapman, John Damen, Peter Dickeson, Anthony Dinallo, Peter Douglas, 
Peter Egan, Chris Fitzgerald, Craig Fizzell, Garry Francis, Andrew Jones, T.A, Lister, Jeff 
Maddock, Arthur Manrique, Greg Marthick, John Masters, John Mattes, Stan Ockers, Sean 
Quinlan, Gregg Ramsey, Tony Reeve, Roberto Romano, Ken Shiu, Allan Smyth, John Trigge, 
Brenton Vettoretti, Robert Vickery and Barry Williams. Thanks also to our friends and 
contacts in users’ groups around the world. (Would you believe it’s winter in the northern 
hemisphere?) 


Merry Christmas and Happy New Year to you all, I’ll see you next year, 
- Garry Francis 


SPAS PARTY 
Phillip’s Foote, 101 George Street, The Rocks 
&.20 P.M. Friday 9th December, 1983 


For a great time; come to Sydney’s famous Rocks area for the A.C.E.(N.S.W.) Christmas Party, 
Everybody that’s anybody will be there! Bring the family and friends (but leave the toddlers 
at home), You should find us in the large area beside the "cookhouse". Meals average #7, 
Includes your choice of meat (cook it yourself), smorgasboard salad, dessert and a glass of 
wine or port. See you there!! 


PROGRAM SELECTOR 


by John Trigge 


The utilities disk recently purchased from the club certainly makes writing for INSIDE INFO 
a lot easier. The DOC program is great. 


SELECTOR will display up to 246 filenames at a time from a disk directory, each with a unique 
letter assigned to it. Options available are to RUN (or ENTER) a program by pressing the 
letter assigned to it, display more programs if there are any or to read another disk 
directory, 


SAVEd programs will be RUN upon selection and LISTed programs will be ENTERed. I have 
assumed that .LST will be used as a filename extender on LISTed programs - as recommended 
on page 19 of the DOS II Reference Manual. A load will be attempted for any other file 
selected, however an error message results if the load is unsuccessful (e.g, if trying to load 
DNOS.SYS). Instructions and error messages are self explanatory, with a BEEP occurring 
whenever the message changes, 


I have made this program an AUTORUN.SYS5S file on all my disks so that my children can 
easily select their program as soon as the disk boots or simply read directories until they 
find the program that they wish torun. This was achieved using the program from "Automate 
Your ATARI" by Joseph J. Wrobel in the January 1983 issue of COMPUTE! (page 144), 
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1 REX HHH 

Z REM # PROGRAM SELECTOR $ 

3 REM # by John Trigge 3 

4 REM # Published by Atari Computer # 

S REM # «Enthusiasts (N.S.4.) 3 

& REM ¢ December i983 $ 

7 REM SHH 
10 DIM FILE$(704),INS(17) ,QUT$(14) , TE¢ 
1) ,MSC$(80), TEMP4(11):GOSUB 400:REM In 
itialise 

20 M=LIN=64;G0SUB SOOSREM Read disk di 

rectory 

30 IF C=1 THEN POSITION 14,103? " Disk 
empty "iGOTO 70 

40 2 "<"SCHRS(MIN)3"> "SFILES(MR11-10, 

Mx11) 

30 IF M+N=77 THEN FOKE 82,22:POSITION 

22,2:REM Start second column 

60 M=MHA3IF MeC AND M/27<HINT(M/27) TH 

EN 40 

70 POKE €2,2:GOSUB 4003REM Get message 

80 GOSUB S00REM Sound, move aessage 2 
nd get input 

90 IF (A<49 OR ADSO) AND (A<45 OR Att 
43) THEN 80 

106 IF A=49 AND HC THEN GOSUE 400:N=N 

-26:G0TO 40 

110 IF A=49 THEN GOSUB 430:GOSUB 300:G 
OTO 703REM No wore programs 

120 IF A=50 THEN GOSUB 410:GOSUB 300:G 
OSUB 4003GOTO Z0;REM New disk 

130 D=A-N;OUT$="D5" 

140 TEMPS=FILE$(Dx11-10,D0x11-3) 

150 FOR I=1 10 O:IF TEMFS${I,I)<>" " TH 
EN QUT$(LEN(OUT$)4+1)=TEMPS(T,I) NEXT I 
160 TEMP$=FILE$(D«11-2,Dx11) 

170 IF TEMPS$(1,1)<2" " THEN OUTS(LEN(O 
UT$)+1)="."3REM Filename extender exis 
ts 

180 FOR I=1 10 33IF TEMPS(I,I)<>" " TH 
EN QUT$(LEN(OUTS +1 )=TEMPS(I,I)¢NEXT I 
190 IF OUT$(LEN(QUT$)-2)="LST" THEN GR 

APHICS O3POKE 92,2:GOSUB 4503ENTER OUT 


* 


200 TRAP Z10:GOSUE 450:RUN OUTS 
219 GOSUE 420;COSUE 300 
220 POSITION 7,193? " 

"SREM 30 Spaces 
230 GOTO 70 
300 FOR Z=1 10 
310 SOUND 0,96,10,103NEXT Y 
320 SOUND 0,0,0,03NEXT Z 
330 POSITION 1,233? MS6$(1,39)5 
340 T$=MSC$(1,1) MSGS=MSC$ (2) {MSCS (LEN 
(MSG$)41)=T$:REM Move message 
350 FOR W=1 TO 40:NEXT W 
340 IF PEEK(744)=255 THEN 330 
370 OFEN #2,4,0,"Ke":REM Open keyboard 
380 GET #2,A 
390 CLOSE #2°RETURN 


2sFOR Y=1 10 40 
10 
0 


400 MSG$="__ FRESS LETTER BESIDE DESIRE 

D FROGRAM 1=MORE PROGRAMS 2=NEW DISK 
"TRETURN 

410 MOG$="" PLACE NEW DISK IN DRIVE F 
RESS ANY KEY TO CONTINUE" {RETURN 

470 MSG$=" FROGRAM NOT AVAILABLE FROM 
GASIC PRESS ANY KEY TO CONTINUE SRET 

URN 

430 MSG%="" NO MORE FILES ON THIS DISK 
TRESS ANY KEY TO CONTINUE’ SRETURN 
450 POSITION 7,19 

460 ? "Searching for ";OUT$ 

470 RETURN 

500 GFEN #1,4,0,"Dix. x" SREM Directory 
310 C=LFILE$=" " 

020 INFUT #1,IN¢iREM Read directory 

330 IF IN$(5,16)="FRCOE SECTORS" THEN 5 
70 

TAO INS=INS(3,13) REM Remove ‘locked’ 
and sectors 

Su FILE$(C«11-19,0%11)=IN¢ 

340 C=C+1:G0TO 520 

570 CLOSE #1 

300 RETURN 

600 FORE 82,2:GRAPHICS O:SETCOLOR 2,1, 
O:POKE 752,1 

éi0 7" DISK DIRECTORY 


620 POKE 82,33? ¢RETURN 





(| 
OH 
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1 REM #344bS4E4S3444442 44S 
Z REM ¢ AUDCTL DEMO $ 

3 REM # by Greag Ramsey $ 

4 REM # Published by Atari Computer + 

3 REM # = Enthusiasts (N.S.H.) t 

& REM # December 1983 ¢ 

7 REM 3H 

10 GRAPHICS O¢SETCOLOR 2,0,0 

20 SOUND 0,1,10,83SOUND 1,94,10,83S0UN 
D 2,142,10,8¢SOUND 3,243,10,8 

30 PORE 53768, 0:FOKE 752,13? “USE JOYS 
TICK 1 TO CHANGE AUDCTL..." 

40 POSITION 9,23? "FOKE 53748,0" 

30 S=STICK(O)tIF S=15 THEN 50 

40 P=P4(Pez55 AND 9=14)-(P2=1 AND S=13 
) 

70 POKE 53748,F3POSITION 20,227 Fp" " 

86 FOR I=1 TO 20:NEXT T:GOTO 50 


ARITHMETIC PROGRAMS 


by Allan R. Smyth 


All of the following programs have been used in the classroom primarily as an opportunity 
for the students to get hands-on experience with the computer and at the same time to 
DEMONSTRATE a particular lesson. They are not really intended as teaching programs, but 
can be of assistance in drill and remedial lessons. 


With most of these programs, pressing the ESC key once provides a hint for the correct 
answer, In those programs which give a mark at the end, no penalty is incurred for asking 
for a hint. If the ESC key is pressed a second time, the answer will be given. In this case, 
the student is deemed to have given an incorrect answer and penalized accordingly. It has 
been my intention to encourage, not penalize, in doing these programs. 


The following is a list of the pragrams with an explanation of their use, All programs use a 
question mark on the screen to indicate the position where a digit needs to be entered, 


DIVISION 
This uses the division algorithm to demonstrate long division. On RUNning the program, the 
first screen asks for the level. Press 1, 2, 3 or 4, 

Level 1! 2 digit divisor, no remainder 

Level Z: Z digit divisor, remainder 

Level 3! 3 digit divisor, no remainder 

Level 4: 3 digit divisor, remainder 
For the second screen, press C. The questions will now appear with a 7 in the position where 
the digit must go. This program tests every key press and will NOT accept any incorrect 
digits. You may press ESC for help at any time. 


MULTIPLY 
The first screen asks for the level. Press 1 or Z, 
Level 1} Multiply by a Z digit number 
Level 2} Multiply by a 3 digit number 
For the second screen, press C, The program now runs the same as division. 


IMPROPER FRACTIONS 


This program converts mixed numerals to improper fractions and vice versa, Press C for both 
the first and second screens, Again the program uses a ? as the prompt in the required 
position. This program does not check each digit, but waits until the RETURN key is 
pressed, The ESC key provides help. 


ADDITION OF FRACTIONS 

This program adds two fractions. It does not check each digit, but waits until the RETURN 
key is pressed. An incorrect answer may be changed before the RETURN key is pressed by 
pressing the SPACEBAR,. 


EQUIVALENT FRACTIONS 
This program prompts the student to enter the fourth digit in a proportion. The first screen 
asks for the level. Press i or 2, 

Level 1! Equivalent fractions formed by multiplication of an integer 

Level Zi Some formed by multiplication of a fraction 
I could not think of a suitable hint routine for level 2, so the program does not provide help 
when multiplying by anon integer. Input is not checked until the RETURN key is pressed, 
You can change the answer by pressing the SPACEBRAR. 


SUMS 

Screen 1 asks for the level. Press anything from 1 to %. 
Level 1: Mental arithmetic 
Level 7: Very difficult 


For a year 7 student requiring practice on 4 operations, probably level 3 or 4 would be most 
Suitable, Answers are entered from right to left according to the position of the prompt. No 
hints are given in this program (i.e. the ESC key doesn’t work), The program checks answers 
when the RETURN key is pressed. You may change an answer before this by pressing the 
SPACEBAR,. If a wrong answer is given the program flashes the correct answer and loops 5 
times through the same problem (typing practice?}, 


1 REM SEOdtHeCStee ett eeHt eee eeete 

2 REM ¢ DIVISION $ 

3 REM ¢ by Allan Ry Smyth $ 

4 REM # Fublished by Atari Computer 

3 REM # = Enthusiasts (N.S.W.) # 

& REM # December 1983 t 

7 REA HHH 

10 DIM 2¢(7) ANSWERS (7) SKEYS=0 SKEYS1=0 

20 GRAPHICS 18:OFEN $1,4,0,"Ke"SPOSITI 

ON 2,139 #43" LONG'?? $43? $4)" 

OIVISTON" 

30 POKE 16,44:POKE 53774,44 

40 POSITION 3,5:7 $6; "choose level" :Pd 

SITION 3,42? #63"(1,2,3 or 4)" 

30 GET #1,AtIF Ac49 OR AbS2 THEN 50 

60 LEVEL=A-40 

70? S6$CHRS(125)3? 445" 

#6 

80 ? #6;"esc IF YOU NEED HELF'S? $63? 

$4;"IN DOING A QUESTION" 

90 POSITION 5,1037 #4;"press"3? #4} "c 

TO CONTINUE” 

100 GET €1,AtIF Ac>47 THEN 100 

110 GRAPHICS 2?SETCOLOR 2,0,0 

120 FOKE 16,443PQKE 59774,44 

130 FOR Q=1 TO i0 

140 Y=INT(RND(0)"8994100) 

450 IF LEVEL=1 THEN X=INT(RND(O)x742)3 

R=0 

140 IF LEVEL=2 THEN X=INT(RND(0)x742)3 

R=INT(RND(0)"(X-1)41) 

170 IF LEVEL=3 THEN X=INT(RND(O)xG0411 
YIR=0 

160 IF LEVEL=4 THEN X=INT(RND(O)xG04 11 
SREINTCRND CO) M(X- 141) 

190 Z=XxY+R3Z2$=STR¢(Z) SLESLEN(7$) 3 Z=VA 

L(Z$(1,1)) SFLAG=0 

200 ? $63CHR$(125) POSITION 0,037 #63" 
level" }LEVCL 

210 POSITION 9-LEN(STRE(X)) 287 $45X3" 
"SCHRE(9)3" "SZ$iPOSITION 10,13FOR I= 

1 TO 93? $4;CHRS (127) SNEXT I 

220 FOR P=1 10 LE 

230 ESC=0 

240 IF INT(Z/X)<1 AND FLAG=0 THEN Z=10 

WZ4VAL (Z$(P#1,P+1)) GOTO 740 

Z00 FLAG=FLAG# L$ ANSHER=INT (Z/X) $Z=Z- AN 

SWERKX 

260 POSITION 0,95? #4;"question "3@ 

270 POSITION 114P,08% $65CHRS(31)3 

200 GET $1,AtIF A=27 THEN 940 

290 IF A<48 OR A2S7 THEN 280 


press"? 


300 A=A- 48 SKEYS=KEYS+ 1 
310 IF G=ANSWEE THEN 340 
320 7 CHRS(125) ;CHRE (253) SKEYSISKEYS1+ 
LIF AcANGHER THON 7 As" IS TOO SMALL. 
TRY AGAIN’ GOTO 260 
330 7 As" IS TOO LARGE. TRY AGAIN"; GOTO 
280 
240 POSITION 114F Af? €4tAtt? CHRG(L2S 
);"CORRECT GOOD WORK" 
S00 ANSHERS=STRS ( ANSHERX) {L=LON(CANSHE 
RE} SIF P=LC AND R=0 THEN 860 
360 TOR Wet TOL 
370 CSC=0 
S60 K=VALCANSHERS (Lt 1-WyL41-W)) 
390 POSITION 1247 W,2+7LAG 
400 7 $6;CiRS(31)} 
410 GET #1,ASIF A=27 THEN 940 
420 IF A<46 OR A>S7 THEN 410 
490 REYS*KLYS41 1 tA=A- 48 
440 IF ASK THEN 440 
450 KEYSI=KEYS1+179 CHR$ (125) }CHRE (253 
2? Ay" IS INCORRECT. TRY AGAIN" GOTO 4 
iD 
460 POSITION 1247 W,24FLAGS? $63A3 3? C 
ERE (125); "CORRECT PLEASE CONTINUE." 
470 NEXT W 
460 IF P=LE THEN 740 
490 ANSWERS=STR¢(Z) }L=LEN(ANSHERS ) 
300 ESC=0 
S10 FOR W=1 TOL 
920 K=VALCANSHERS (LA 1-H Lt t-W)) 
30 POSITION 12-W4F, S+FLAG 
TAN 2 $4; CHRE (31) 5 
550 GET #1,AsIF A=27 THEN 760 
O60 IF A<48 OR ASS7 THEN 550 
370 A=A-4ESKEYS=KEYS¢ 1 
580 IF A=K THEN 400 
S90 REYSL=REYS1413? CHRS (125) sChRS (253 
)3? "INCORRECT TRY AGAIN" GOTO 550 
600 POSITION 12-WiF SHFLAGI? £43033? C 
HRS (125) "CORRECT GOOD WORK" 
Git NEXT 4 
620 ESC=0 
630 K=VAL(2¢([+1,P4+1)) 
440 POSITION 12+P SFLAGI? #4; CiRE(31) 


! 

650 GET #1,A0IT A=27 THEN 1000 
GG0 IF AS46 OR AzS7 THON 650 
670 A=f AGTKEYS=NLYS 1 


680 TF Ah THEN 700 
690 KEYSI=KEYS1+13° CHR$(125) ;CHRE (253 


3? "ANSWER IS INCORRECT PLEASE TRY AG 
AIN' GOTO 250 
700 POSITION i24P,SaFLAGS? $458; 
710 2 CHR¢ (125) ;"CORRECT.GOOD WORK" 
720 Z=10XZ+K 
30 FLAG=FLAGH 
740 NEXT P 
730 IF R=0 THEN G60 
740 POSTTION 114P 03? 6;"r"3 
770 ANSHERS=STRS (Rh) SL=LEN CANSHERS ) 
780 ESC=0 
790 FOR W=1 TOL 
O00 POSITION 11+F+H,02? F6;Cihe(3i)$ 
O10 GET €1,AtIF A=27 THEN 1020 
820 IF A<48 OR ASS7 THEN 610 
O30 KEYS=KEYS+1 (A=A-46 
640 TF A=VALCANSHERS(W.Wd) THON 840 
850 KEYSI=KEYS1+1°2 CHRS (125) ;CiR$ (253 
3? “INCORRECT .PLEASE TRY AGAIN" :GOTO 
810 
O40 POSITION 114F4W,087 $6585 
870 NEXT W 
O80 2 CHR$(125) "CORRECT EXCCLLENT WOR 
kK" 
B90 FOR X=1 70 255 STEP 2:SQUND 0,RND( 
0)x100+50,10,103POKE 710,XNEXT X$POKE 
710, 0;SOUND 0,0,0,0 
900 NEXT Q 
910 P=INT ((KEYS-KEYS1)/KEYS%100) 
920 7 $6;CHRE(125)3? F6s"Hark “PP y NZ" 
930 END 
940 IF ESC=0 THEN ? CHR$(125); "DIVIDE 
"SANSWERRX$" BY "SXtESC=ESC+HL GOTO 260 
950 KEYS=KEYS+13? CHR$(125) sPOSITION 1 
1+P, 037 S4SANSWERS SKEYSI=KEYS1+1 (GOTO 
350 
940 IF W=i AND ESC=0 THEN * CHR$(125); 
“TYPE TRE ANSWER TO "FANSWERS"K"S XSESC 
=ESC+13G0TO 410 
970 KEYS=KEYS+ii? CHRS (125) SPOSITION 1 
2-L#P, 24FLAGS? $6; ANSWEREX$ SKEYSI=REYS 
(+1;60T0 400 
$00 IF W=1 AND ESC=0 THEN ? CHRE(125); 
“SUBTRACT THE ABOVE 2 NUMERALS,” tESC=E 
SC+1:G0OTO 350 
990 KEYS=KEYS+1:? CHR¢(125) ‘POSITION 1 
2-L4P HFLAGS? $6$Z) SKEYSI=KEYS1+1 (GOT 
0 620 
1000 IF ESC=0 THEN * CHR$(125); "BRING 
DOWN THE NEXT DIGIT" SESC=ESC+1 GOTO 65 
0 
1010 KEYS=KEYS+i3? CHR¢ (125) :POSITION 
12+P ,S4FLAGS? $43K; SKEYSI=KEYS1+1 GOTO 
720 
1020 IF ESC=0 AND W=1 THEN ? ChRE(125) 
;"SUBTRACT THE LAST 2 NUMERALS" SESC=ES 
C+iGOTO 810 
1030 KEYS=KEYS+i POSITION 12+P,0:? #4} 
ty SREYSI=KEYS14+13? CHRE(125) GOTO O90 


1 REM HH at 


2 REM $ MULTIPLY $ 
3 REM ¢ by Allan R. Sayth $ 
4 REM = Tublished by Atari Computer # 
S REM # « Erithusiasts (N.O.H,) $ 
& REM $ Decernber 1983 $ 


7 REM Sobee oH eee 
10 DIM X$(4) ,¥$(S) , ANSWERS (6) YS) X39 
) CARRYS(9) {FOR T=1 TO 9SCARRY$(T}=CHR 
$(1GtT) NEXT I 

20 KEYS=0:KEYS1=0 

30 GRAPHICS 18s0FEN £1,4,0,"K3"POSITT 
ON 2,137 £6; "MULTIPLICATION" 

40 FORE 14,443POKE 53774,64 

30 POSITION 3,537 #4;"choose level "SFO 
SITION 5,437 #43"(1 or 2)" 

GQ GET 41,ASIF AS? ON APSO THON 60 

70 LEVEL=A-48 

GO 7 $4sCiRe(1Z25)37 $45" press"3? 
#4 

90 7 #6;"esc IF YOU NEED HELP'S? £63? 
#4;"IN DOING A QUESTION" 

100 POSITION 5,103? #6;"press'3? $4)"c 
TO CONTINUE" 

110 GET #1,ASIF Aceé7 THEN 110 

120 GRAPHICS 2:SETCOLOR 2,0,0 

130 PORE 14,¢43POKE 53774,44 

140 FOR Q=1 TO 10 

150 X=INT(RND(O)*984+13) 

140 IF LEVEL=1 THEN Y=INT(RND(O)*Gd+13 
GOTO 180 

170 Y=INT(RND(0)%9664 13) 

160 X$=STRE(X) YS=STRS CY) SL=LCN(V#) LE 
NG=LEN(X$) 

170 W=0 

200 FOR Z=1 TOL 

210 Y(Z)=VAL(Y$(Z,Z)) 

220 IF ¥(Z)<>0 THEN WeWit 

230 NEXT Z 

240 FOR Z=1 TO LENG 

2a X(LENG+1-Z)=VAL(X$(Z,Z)) 

260 NEXT Z 

270 ? $6;CHR$ (125) POSITION 10,937 #4; 
"question" ;Q;POSITION 12,057 #4}"level 
*SLEVEL 

260 POSITION G-LEN(XS) 137 $63X$5 "x" 

290 POSITION O-L»23? $4};¥$% 

300 POSITION 2,33? $43" 


"yPOSITIO 


330 FOR Z=L 10 1 STEF -1 

340 IF ¥(Z)=0 THEN 42 

350 ANSWER=Xx¥(Z) 

360 IF Z=L TREN 400 

370 FOR P=1 10 (L-Z) 

380 ANSWER=ANSHERX1 0 

390 NEXT F 

400 ANSWERS=STR$ (ANSWER ) +LE=LEN(ANGHER 


$) 

410 GOTO 520 

420 NEXT Z 

430 ANSHER=XxY } ANSWERS=STR$ (ANSHER) 
440 IF W=1 THEN 440 

450 GOTO 1150 

460 ? CHR$(125) ; "CORRECT. EXCELLENT WOR 
K" 

470 FOR X=1 T0 255 
0)x50450,10,10:FOKE 
710, 03SOUND 0,0,0,0 
480 NEXT Q 

490 P=INT((KEYS-KEYS1) /KEYS«100) 

500 7 $63CHR$(175)27 Foy "mark “FPS 9Z" 
S10 CND 

520 C=0tP=2-L 

530 FOR R=1 TO LE 

540 F=P+1 

550 ESC=0 

540 POSITION O-f,44H3? $630HR$(31)3 
570 GET #1,AtIF A=27 THEN 740 

50 IF Aca OR A>S7 THEN 570 

5970 7 ChRS(125) 

600 ANSWER=A-46 

610 KEYS=KEYS+1 

620 IF STR¢ (ANSWER )=ANSWERS (LE+1-R, LE 
1-R) THEN é40 

630 KEYSI=KEYS1413? CHR$ (125) ;CHRS (293 
+? ANSWERS" IS INCORRECT ANSWER. TRY A 
GAIN" GOTO 570 

640 7 "CORRECT.GOOD WORK" 

650 POSITION &-R,44Wi? $4; ANSWER} 

660 IF f<1 OR F>=LENG THEN 700 

470 Ci=C 

680 C=¥(Z)eX(F)4C 

690 IF C>=10 THEN £70 

700 C=O:POSITION 0,0:? 443" " 





STEP 2¢SQUND 0, RND( 
710,XNEXT X¢PORKE 


, 
740 NEXT R 
720 WWHISPOSITION 0,0:7 $43" 
t 
730 GOTO 420 
740 IF Pai ThEN 820 
750 IF ESC=1 THEN KEYS=KEYS+ 1 tKEYSI=KE 
YS1+1 SANSWER=VAL (ANSHERS (LO+1-KyLO4 1-R 
))3? CHR$(125) GOTO 250 
760 IF P2LENG THEN 980 
770 ESC=ESC+HL3? CHRS (125) 
780 2 YCZ¢"R"SXCPDS 
790 IF C>0 THEN ? "+"5C3 
B00 2 "="5¥(Z)aX(P)4C 
O10 ? “WHAT NUMERAL DO YOU WRITE DOWN" 
GOTO 570 
620 IF ESC=1 THEN KEYS=KEYS+ 1 SKEYSI=KE 
YSI+L;ANSWER=0°GOTO 250 
830 ESC=ESC+157 CHRS (125); "REMEMBER TH 
E PLACE VALUE OF "SY(Z);7 “IS "3 
040 IF L-Z=1 THEN ? "TENS" 
650 IF L-Z=2 THON ? “HUNDREDS” 
040 GOTO 570 


870 POSITION 0,03? #43" "etCeI 
NT(C/10)$POSITION 7-P,0$? $6;CIRG(31)} 
G80 7 CHR¢(125);"HEAT NUMGCR DO YOU CA 
BRY" } SESC=0 

B90 GET $1,ASIF A=27 THEN 1050 

900 IF ACA® OR APS7 THEN 870 

910 ANSHER=A- 48 

920 KCYS=HLYS44 

930 IF ANSHER=C THEN 950 

940 KEYSISHEYS1415? CHRS(125)3? ANSHER 
+15 INCORRECT. TRY AGAIN" {GOTO 690 
950 POSITION 7-F,03? $4;CARRYS(C,C)} 
940 7 CURG(125) 

970 GOTO 710 

980 ANSRER=VAL (ANSWERS (1 ,2)) SC=ANSHCR- 
¥(Z)XX(P-1) 

990 ESC=ESCH1 

1000 2 CHRS(125)%2 Y(Z)$"K"SX(P-1)} 
1010 IF C0 THEN ? "4"3C} 

1020 ? "="sANSHER 

1030 2 "YOU HAVE TYPED "sVALCANSHERS(L 
E42-R,LE#2-R) } 

1040 2 "WHAT NUMBER NOW NEEDS TO GE TY 
PED" {COTO 570 

1050 IF ESC=1 THEN KEYS=KEYS+1 :KEYS1=K 
EYSI+LGOTO 950 

1060 ESC=ESC#H1!? CHRS(125)32 Y(Z)3"x"3 
X(P)} 

1070 IF C120 THEN ? "#"SC13 

1080 2 "="SY(Z)xX(P)4CL 

1090 2 "YOU HAVE WRITTEN DON "sANSHER 
1100 ? "WHAT NUMBER DO YOU CARRY?"}3GO 
TO 890 

1110 IF ESC=1 THEN KEYS=KEYS#1 KEYS1=K 
EYS1411? CHR$(125) SANSHER=VAL (ANSWERS ( 
LE+1-RyLEt1-R)) $6070 1250 

1120 ESC=ESC+1!? CHR$(125);"ADD THE AB 
OVE "SWS" NUMBERS, "2? 

1130 ? "CHECK FOR CARRY FROM PREVIOUS 
COLUMN" 

1140 GOTO 1190 

1150 LE=LEN(ANSHER$) 

1160 FOR R=1 TO LE 

1170 ESC=0 

1180 POSITION 8-RySHWt? $4;CHRS(3L)} 
1190 GET #1,ASIF A=27 THEN i110 

1200 IF AC4O OR ADS7 THEN 1190 

1210 ANSHER=A~49 

1220 KEYS=HEYS#1 

1230 IF STRS(ANSHER) =ANSHERS (LE41-R,LE 
#1-R) THEN 1250 

1240 KEYSL=KEYS1413? CHR$ (125) $CHRG(25 
3)!? ANSWERS" IS INCORRECT. TRY AGAIN'S 
coTO 1190 

1250 ? CHR$(125)} "CORRECT GOOD _WORK" 
1260 POSITION G-R,SHW!? #6;ANSHER} 
1270 NEXT F 

1280 GOTO 440 


1 REN AHA 
2 REM + IMPROPER FRACTIONS $ 
3 REM # by Allan ft. Sayth t 
4 REM # Fublished by Atari Computer # 
S REM # «= Erithusiasts (N.S.W,) E 3 
& REM # December 1983 + 


7 REM 34H 

10 CORRECT=0:GRAPHICS 19:OPEN #1,4,0," 

Ki" 

20 TOKE 16,64¢FQKE 53774,64 

30 POSITION 5,037 #6;" IMPROPER” 

40 POSITION 5,2:? #4;"FRACTIONS" 

50 POSITION 3,10? #4;"press c" 

60 FOSITION 3,113? #4;"to continue" 

70 GET #1,A3IF As>47 THEN 70 

GRAPHICS 183? #43" press'!? #43 
#6;"esc for help"? #637 #4; "return 

ps your" ?? #4;"answer is correct" 

90 FOKE 16,64°POKE 53774,64 

100 POSITION 1,112? #43"c to continue" 

110 GET #1,A:IF Ax:47 THEN 110 

120 GRAPHICS 2:SETCOLOR 2,0,0:POKE 14, 

643POKE 53774,64 

130 FOR Q=1 10 253? #4;CHR#(125) SESC=0 

sPOSITION 9,02? #43 "question" ;Q3A=32 

140 CORRECT=CORRECT# 1 

150 DENL=INT(RND(0)%942) SNUML=INT (RND( 

0)«(DEN{—1)+1) SWHOLE=INT (RND(0)x6+1) 

140 FOR X=NUM1 TO 2 STEP -itIF NUMI=1 

THEN 190 

170 IF NUMI=XXINT(NUMI/X) AND DENI=INT 

(DENL/X)X THEN NUMI=NUMI/X?DENL=DENL/ 

X:GOTO 140 

180 NEXT X 

190 NUM2=WHOLEXDEN1+NUML 

200 CHOICE=RND(O)SIF CHOICE<0.5 THEN 3 

40 

219 GOTO 490 

220 NEXT Q 

230 IF CORRECT<0 THEN CORRECT=0 

240 ? $4;CHR$(125) SPOSITION 2,237 $43" 

MARK=__" 

200 POSITION 7,137 #4;CORRECT 

0 POSITION 7,3:7 £6;"25" 

0 POSITION 6,539 $43 "=" j4CORRECT 5 "Z 


bP 


=P ho 
SoS 


ond 


60 POSITION 0, 
0 IF CORRECT=25 THEN ? $4}"excellent 


ah 
~a 


mI 


Sa IF CORRECT<25 AND CORRECT>20 THEN 
? #4;"very good" 
an IF CORRECT“21 AND CORRECT:15 THEN 
? $4;"good work" 
320 IF CORRECT<14 THEN ? #41"seek seek. help 
330 END 
340 POSITION 4,437 $4;NUML 
300 POSITION 3,537 44;WHOLE;"_ =" 
340 POSITION 4,437 #4;DEN1 
370 POSITION 7,437 #4;DEN1 


-10- 


=QSAl=O0;FOSITION 7,457 $63" " 
“OSITION 74X,497 $6300" 
GET $1,A0IF A=32 THEN 360 
7 THEN 700 
155 AND AL<?0 THEN 460 
) OR A257 THEN 400 
7+X 4SPUT $6, AtAL=ALRLOIA 
IF X=2 THEN 440 


0 IF NUNZ<2AL THEN ? CHRE(125) ;CHRE( 
ee "INCORRECT .TRY_ AGAIN’ GOTO 360 
70? CHRE(125)2? "CORRECT, GOQD WORK": 
= A=i TO i000SNEXT A 
GOTO 220 
POSITION 4,437 $6¢NUMZ 
POSITION 4,537 #4)" = __" 

Q POSITION 4,437 $4;DENL 
0 POSITION ¢,437 £4;DENL 
30 POSITION 7,527 43"" 
0 GET £1,AtIF A=27 THEN 820 
0 IF AAS OR APS7 THEN 340 
S60 IF A-4G<2WNOLE THEN ? CHRS(125)37 
“INCORRECT TRY AGAIN"? CHR¢ (253) $GOT0 
330 

O70 POSITION 7,S:PUT #4,At? CHRS(125)¢ 
? "CORRECT GOOD WORK" ESC=0 
500 POSITION 9,437 $43" “tX=0iAl=0 
O70 POSITION 9+X,4¢7 #45"" 
600 GET #1,AtIF A=32 THEN 500 
610 ? CHREC29) 
620 IF A=27 THEN 750 

30 IF A=155 AND AL<>0 THEN 470 
640 IF Aca OR AsS7 THEN 400 
650 POSITION 94X,4:PUT $4,AsAL=AleIO4A 
ASSX=XtL0IF X=2 THEN 670 
660 GOTO 590 
670 TF ASDNUML THEN ? CHRS(125)%? "IN 
CORRECT «TRY AGAIN'S? CHRS(253):G0TO 5 
80 
. ? ChRS(125)29 “CORRECT EXCELLENT W 

ORK" SFOR ie TO 1000:NEXT A 
6?0 GOTG 2 
700 IF Fot=t THEN CORRECT=CORRECT- 1360 
TO 740 
710 ESC=ESC+1 
720 ? CHR(125)3? “TO FIND THE ANGHER 
WO"S? “MULTIPLY "$DEN1;" BY ";WHOLE;" 
AND ADD ";NUMi; 
730 GOTO 300 
740 POSITION 7,43? #45" "SPOSITION 7, 
40? $6;NUMZSFOR A=1 TO 1O00%NEXT ASCOT 
0 220 
730 IF ESC=1 ThEN CORRECT=CORRECT- 1:60 
TO 799 
740 ESC=ESC+1 
770 3 CHR$(125)37 WHOLE S"&"JDENL} "=" SH 
HOLEXDENL?? "GOW MANY MORE DO WE NCCD 
TO ADD TO "SNUMZ} 
760 GOTO 560 
790 POSITION 9,427 £43" 


= 


~2 
eas 


on on on cion co > -_ ™ 


rH 


“SPOSITION ¢, 


AY? S6;NUML; 

800 FOR A=1 TO 1000°NEXT A 

810 GOTO 220 

620 IF ESC=i THEN CORRECT=CORRECT-1i60 

TO 840 

050 ESC=ESC+I 

G40 ? CHRS(125)°? "WHAT IS "SWHOLEXDEN 
+" DIVIDED BY “;DENL} 

850 GOTO 530 

840 POSITION 7,52? $4;WHOLE} 


870 ESC=0 

880 GOTO S80 

1 REM SHH 
2 REM # ADDITION OF FRACTIONS = # 


3 REM # by Allan Ry Smyth + 
4 REM $ Fublished by Atari Computer 4 
3 REM # = Enthusiasts (N.5.W,) $ 
& REM # Decesber 1993 3 
7 REM HHH HH 
10 DIM C$(2):C$="4-"SOPEN $1,4,0,"KE"% 
GRAPHICS 18 

20 POKE 16,44:POKE 53774, 644 

30 POSITION 4,03? $6;"ADDITION" 

40 POSITION 7,137 #43;"0F" 

30 POSITION 4,23? #43"fractions" 

60 POSITION 3,53? #4;"press y for':? # 
63" instructions" 

70 POSITION 0,9°? #4;"press n to conti 
nue" 

80 GET #1,ASIF A=89 THEN COSUB 1100360 
TO 100 

90 IF A<>78 THEN 80 

100 FOR Q=1 10 25 

110 DENI=INTCRND(0)x8+2) 

120 DEN2=INT(RND(0)x8+2) 

130 NUMI=INT(RND(O)X(DENI- 1941) 

140 NUMZ=INT (RND(0)x(DENZ-1)41) 

150 FOR X=NUMi TQ 2 STEP -1°31F NUMI=1 

THEN 180 

160 IF DENL=XxINT(DENI/X) AND NUM1=XxI 
NT(NUM1/X) THEN DENI=DEN1/X?}NUMI=NUM1/ 
XiGOTO 150 

170 NEXT X 

180 FOR X=NUM2 TO 2 STEP -1¢IF X=1 THE 
N 210 

190 IF DEN2Z=XxINT(DENZ/X) AND NUM2=XxI 
NT(NUM2/X) THEN DENZ=DEN2/X 3 NUM2=NUM2/ 
XiG0TO 160 

200 NEXT X 

210 DEN=DENLSDEN?Z SA=DENLIIF DENZ2DCN1 

THEN A=DEN? 

220 FOR X=A TO 2 STEP -1 

230 IF DEN=A THEN 240 

240 IF DENI=XxINT(DENI/X) AND DEN2=XxI 
NT(DEN2/X) AND DEN=XXINT(DEN/X) THEN D 
EN=DEN/X 

2a0 NEXT X 

260 C=1 
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270 GRAFHICS 2:SETCOLOR 2,0,0 

200 POKE 16,443POKE 53774564 
290 POSITION 2,03? $6;NUML 

300 POSITION 4,037 £6;NUMZ 

au POSITION 2,437 $63"_"3C6(C,0)5"_" 
320 POSITION 2,2¢? $4;DEN1 

300 POSITION 4,237 $4;DENZ 

340 IF DENI=DEN2 THEN DENA=DEN1:GOTO 4 

00 

350 POSITION 5,13? #4}"=__"3C$(C,0)3" 


ee i = 


360 POSITION 7,237 #4"2" 

370 POSITION 10,2:7 $63"2" 

380 GOSUE 490!2 CHR¢(125)21F Ac>27 THF 
N 2 "CORRECT.GOOD WORK" 

390 GOSUB G80'? CHR¢(125) IF AC+27 THE 
N ? "CORRECT" 

400 POSITION 5,5! #6$"=__" 

410 GOSUB 640%? CHRS(125) 

47) A?=DENLXNUM24DENZXNUML $A1=DENIXDEN 
2 
43) IF AZ=INT(A2/AL)*AL THEN GOSU 740 
SCOTO 450 
440 IF AZ>AL THEN GOSUB 775 
450 ? CHRS(125) SIF AC?27 THEN ? "CORRE 
CT EXCELLENT WORK"; 

740 FOR A=1 TO 1000SNEXT A 

470 NEXT Q 
480 END 
490 DENA=0SX=1SESC=0 
500 IF X<3 THEN POSITION 54X,2%? #43"? 
"SPOSITION G4X,23? #43"? " 

510 GET #1,AtIF A=32 THEN 490 

520 IF A=27 THEN 2000 

540 IF A=155 AND DENA THEN 500 
550 IF A<4@ OR ADS7 THEN 510 

540 POSITION S#X,2:PUT #6,ASPOSITION 8 
#X,2¢PUT #6,A$X=X+1 1DENA=DENAK1 0+ (A- 48 
)tIF X=3 THEN 580 
570 GOTO 500 
500 IF DENA=DEN THEN POSITION 5+X,2!? 
#43" “$POSITION 04X,23? #43" "SRETURN 
590 IF DENACSINT(DENA/DEN)XDEN THEN (3 
Qt 
600 ? CHRS(125) 

610 2 "THE NUMDER "sDENAS" IS A CORREC 
Tt? "DENOMINATOR BUT NOT THE LOWEST " 
:? "COMMON DENOMINATOR. TRY AGAIN’? 

420 ? CHR$(253)} {COTO 490 

630 ? CHRS(125)$? “DENOMINATOR INCORRC 
CT"3? CHRS(253) $G0TO 490 

G80 POSITION 6,63? ie DENA 

650 X=1 NUMASOSESC 

660 IF X<4 THEN Seta 5X49? $642 


670 GET $1,AtIF A=32 THEN 450 

éG0 IF A=27 THEN 3000 

690 IF A=155 AND NUMAS>0 THEN 720 

700 IF At48 OR A237 THEN 670 

710 POSITION S+X,43PUT $6,AX=X+1 3NUMA 


=NUMARLO+(A-40) SIF X=3 THEN 720 

715 GOTO 660 

720 IF NUMA=NUMUXDENA/DENL +NUM2XDENA/D 
EN2 THEN POSITION S+X,43? #43" "IRETUR 
N 

730 ? CHRS(125)%? “INCORRECT ADDITION" 
+? CHRS(299)3G0TO 650 

740 POSITION 5,837 #65"=?" 

730 GET #1,AtIF A=49 OR A=27 THEN POST 
TION 6,839 $6; "1" SRETURN 

760 TF A247 AND ACSS THEN  CHRS(125)? 
9 "INCORRECT" GOTO 740 

770 GOTO 740 

773 AL=USX=1 {ESC=0 

780 POSITION 5,8:9 £6;"=1" (POSITION 7, 
Bi? $4;"__"SPOSITION 7,927 $4;D0NA 
790 FOSITION &4X,73? 443"7 " 

800 GET #1,AtIF A=32 THEN 780 

810 IF A=27 THEN 4000 

820 IF A=155 AND Al<>0 THEN G50 

830 IF As48 OR AXS7 THEN £00 

840 POSITION &4X,7:PUT $6,AiX=X+ LS AL=A 
1410+(A-483) SGOTO 790 

B50 IF AL<>NUMA-DENA THEN 7 CHRS(125)% 
? “INCORRECT SIMPLIFICATION"? CHRS(25 
3):G0TO 775 

840 POSITION G4X,7:7 $45" © 

870 RETURN 

880 NUMA=0$X=1 ¢ESC=0 

890 IF X<3 THEN POSITION S4X,08? #43"? 


900 GET #1,AtIF A=32 THEN 80 

910 IF A=27 THEN 5000 

920 IF A=155 AND NUMA<?0 THEN 940 

0 IF Ac48 OR APS7 THEN 900 

940 POSITION StX,03PUT $6,AtX=X+1 SNUMA 
=NUMANLO+(A-48) CIF X=3 THEN 940 

950 GOTO 670 

940 TF NUMA=NUMISDENA/DENI THEN $80 
970 ? CHRE(125)¢2 "NUMERATOR INCORRECT 
"3? CHRE(253) GOTO G60 
980 POSITION S+X,057 $63" " 
990 NUMA=03X=1ESC=03? CHRE(125) 

1000 IF X<3 THEN POSITION G+X,0:? #43" 
ou 

1018 GET $1,A¢IF A=22 THEN 990 

1020 IF A=27 THEN 4000 

1030 IF A=155 AND NUMAX>0 THEN 1070 
1040 IF AC48 OR AS7 THEN 1010 

1050 POSITION 8+X,03PUT £6,AsX=X+1 NUM 
A=NUMAKLO+(A-46)3IF X=3 THEN 1070 

1040 GOTO 1000 
1070 IF NUMA=NUMZSDENA/DENZ THEN 1090 
1080 ? CHRS(125)¢? "NUMERATOR INCORREC 
T's? CHRS(253) GOTO 990 
1090 POSITION 8+X,05? #4)" "RETURN 
1100 7 $6;CHRECL25)37 $45" press"? 
#4 
1110 ? $63"esc FOR HELIS? 24 
1120 ? $6;"return WHEN YOUR"S? 4; "ANS 
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WOR IS CORRECT"?? #4 

1130 7 $4;"spacebar 10 CHANGE'S? #43" 
NSHER " 

1140 POSITION 1,115? #43"¢ TO CONTINUE 


1150 GET #1,ASIF Ac247 THEN 1150 

1160 RETURN 

2000 ESC=ESC+1°0N ESC GOTO 2020,2100,2 
200 

2020 ? CHRS(125)5? "WHAT IS THE LOWEST 
COMMUN MULTIPLE'?? "OF "SDENI}" AND " 
#DENZ3""?"} SDENA=0¢X=1:G0TO 300 

2100 9 CHRS(125)1? “THE COMMON DENOMIN 

ATOR CAN BE FOUND EY":9 "MULTIPLYING " 
iDENL;" BY "SDEN/DENL;" QR" 

2110 7 "MULTIPLYING "}DENZ;" BY "}DEN/ 
DENZ} SDENA=05X=1 GOTO 500 

2200 X=L:POSITION 6,237 #63" mt 
POSITION 5+X,22? €4;DEN{POSITION 9+X,2 
+? $4;DENSDENA=DEN? RETURN 

3000 ESC=ESC+1SIF ESC=2 THEN 3100 

3010 ? CHRE(125)2? "ADD "}NUMLRDENA/DE 
Nis" AND "SNUH2KDENA/DEN2 | NUMA=6 fX=1 36 
OTO 440 

3100 POSITION 4,43 NUMA=NUMLDENA/DENL+ 
NUMZ*DENA/DENZ¢? 46; NUMA RETURN 

4000 ESC=ESC+1°IF ESC=2 THEN 4100 

4010 2 CHR$(125)29 NUMAS"-"SDENAS"=?"5 
A1=0:X=1°G0TO 730 

4100 POSITION 7,7:A1=NUMA-DENAS? #6;A1 
tRETURN 

3000 ESC=ESC+itIF ESC=2 THEN 5100 

S010 9 CHR$(125)9 "WE HAVE MULTIPLIED 
THE DENOMINATOR'S? "BY "SDENA/DENL}", 

WE MUST MULTIPLY THE NUMERATOR" 

5020 ? "BY THE SAME NUMBER"? }NUMA=03X= 
13G0TO 896 

S100 POSITION 4,032 #63" = "SPOSITION 

6, O:NUMA=NUMLEDENA/DENL$? 44;NUMASGOTO 
990 

6000 ESC=ESC+LSIF ESC=2 THEN 6100 

6010 ? CHRS$(125)29 "WE HAVE MULTIPLIED 
THE DENOMINATOR"?? “EY "jDENA/DENZ}". 

WE MUST MULTIPLY THE NUMERATOR" 

6020 7 “BY THE SAME NUMBER} $NUMA=O X= 
13GOTO 1000 

4100 POSITION 9,0°? #63" 9 "{POSITION 
9, 0 NUMASNUMZXDENA/DENZ¢? 6;NUMAIRETU 

RN 


1 REM SSSsSbeeeeeteeeeeetteteeee tes 

2 ROM # ©CQUTVALENT PRACTIONS $ 

3 REM by Allan kh. Seyth $ 

4 ROM $ Published by Atari Computer $ 

2 ROM # = [nthusiasts (N.S.H,) t 

é ROM $ Decesber 1963 $ 

7 ROM Fee 

10 CORRCCT=0 

20 GRATHICS 1SOPLN $1,4,0, "Ki" POSITT 


ON 4,13? $4;"CQUIVALENT" {POSITION 5,3: 
2 $63;"TRACTIONS" 
30 PORE 16,d4POKE 59774,64 
40 POSITION 3,5:7 $4;"choose level iT0 
SIVION 5,437 #43;"(1 or 2)" 
30 GLT S1,AtIF ASA? OR ASSO THEN 50 
60 LIVEL=A-49 
70 7 F6;CRG(125)3? $45" 
6 
80 7 $4;"esc KLY FOR MOLES? $43? £43" 
return WHEN YOURS? $4; "ANGWER IS CORR 
cct" 
90 POSITION 0,113? #4)" c¢ TO CONTINUC” 
100 GOT €1,AtIr Acod? THEN 100 
118 GRAPHY veel 2,0,0 
126 PORE 14,d4¢PORCD 5377464 
130 FOR d=1 70 5 
140 DONI=INT(RND(0)%1142) SNUML=INT (RND 
(0)a(DENI-1)41) 
150 CORRECT=CORRECT 1 
160 TOR X=NUML TO 2 STEP -1tIF NUMI=1 
THEN 190 
170 IF DCNL=XINT(DENI/X) AND NUMI=X*I 
NT(NUML/X) THEN DEN=DENI/XSNUML=NUMI/ 
XiGOTO 160 
1&0 NCXT X 
190 SCALC=INT(RND(0)%104 1) SNUMZ=NUMI«S 
CALC! DEN2=DENLSSCALC 
200 CHOICC=INT(RND( 0) 1 04LCVELES) 3? £6 
CHRS (125) S£SC=0 
210 POSITION 0,08? $4; "question" QiPOs 
TTION 0,93? $6;"level" jLEVLL: 1; 
220 ON CHOICE GOTO 560,460,740,020,900 
1760, 1060,1140,1220 
IF LOVEL=1 THEN 1290 

240 GOTO 380 
250 7 7 $6;CiR§ (125) POSITION 4,237 $43" 
SCORC=__"SIF CORRECT<0 THEN CORRCCT=0 
260 POSITION 10,12? #4;CORRCCT 
270 POSITION 10,33? #6}"25" 
200 POSITION 9,53? $65"=" 5 4xCORRECT f"% 


press"? $ 





¢ 


290 POSITION 1,8 

300 IF CORRCCT=25 THEN 7 £4} "excellent 
310 IF CORRCCT<25 AND CORRCCT>20 THEN 
? $4;"very good" 

320 IF CORRECT<21 AND CORRECT=15 THEN 
? $4;"improvesent needed" 

330 IF CORRECT<14 THEN ? #43"ask for h 
elp" 

340 CAD 

350 X=0tAL=O0;POSITION FX,PY3? $4y" 
340 POSITION PXtX, PY? $4; "9" 

370 GET $#1,AtIF A=S2 THEN 35] 

380 IF A=27 THEN 450 

370 IF A=i55 AND Al<>0 THEN 430 

400 IF A<4@ OR ASS? THEN 370 

ALO POSITION PXAX PY IPUT $6, AtX=Xt LAL 
=ALELO4A- 4OSIF X=3 THEN 430 
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420 GOTO 260 
430 IF AL-ANSHER THEN ? CHRE(L25)%? "C 

ORRECT VERY GOOD" STOR A=1 TO i000NCXT 
ASRCTURN 

AA) > CHRE(125)$CHRS (253)? “INCORRECT 

LTRY AGAIN, "$G0TO 250 

45Q IF CSC=1 THEN CORRCCT=CORRCCT- 1160 

TO 540 

46) CSC=4 

47 IF CHOICC=2 OF ce 

6 OR CHOICL=7 THEN 5 

400 POSITION 0,42? ean 
490 POSITION 0,517 #63"____"3 

D POSITION 044%? $639CALE}"""s 

0 GOTO 350 

Q POSITION 11,43? #4)"*"}SCALC 
POSITION 11,517 #43"___"} 


q 
0 POSITION 11,487 #65"%"} SSCALL} 
0 


OR CHOICE= 


Cnan on ono on on 
a2 GI he = 


on 


GOTO 350 

POSITION FX,FY3? $6¢" — “SPOSITION 
PXsPYS? E63ANSWERITOR AHL TO 1O0DSNEX 
A 


cn 
co 


370 RETURN 

500 POSITION 4,537 #47" =" 
390 POSITION 4,637 #6;DEN1 

400 TOSITION 6,437 $6 ;NUM2 

G10 POSITION &,637 6}DEN2 

620 PX=407TY=4 ,ANGHCR=NUML 

630 GOSUE 350 

640 NEXT Q 

630 GOTO 250 

640 POSITION 4,539 #6)" =" 
670 POSITION 84°? $4;DCN1 

G80 POSITION 4,639 $6};DEN2 

670 POSITION 4,43? #6;NUMZ 

700 PX=8¢PY=4 3s ANSWER =NUML 

710 GOSUE 350 

720 NEXT Q 

730 GOTO 250 

740 POSITION 4,529 $6)" =" 
730 POSITION 4,437 $6;NUML 

760 POSITION 4,437 $4;DEN1 

770 POSITION 6,437 $4};DENZ 

780 PX=BiPY=4 3. ANSWER=NUM2 

799 GOSUB 350 

G00 NEXT Q 

810 GOTO 750 

620 POSITION 4,527 #43" __ =" 
830 POSITION 4,437 €6;D0N2 

G40 POSITION &,437 $6}NUML 

850 POSITION $,4¢7 $6;D0N1 

B60 PX=437Y=43 ANSWCR=NUMZ 

670 GOSUE 350 

6668 NCXT Q 

690 GOTO 250 

900 POSITION 4,51? $4¢"__ =" 
F410 POSITION 4,427 $4;NUML 

920 POSITION 4,42? $4;D0N1 

930 POSITION 6,437 £4 ;NUK2 

940 PX=BtPY=6¢ ANSWER=DENZ 


950 GOSUE 350 
940 NEXT Q 
970 GOTO 250 
980 POSITION 4,53? $4,"___=___" 
990 POSITION 4,43? $6;NUMZ 

1000 POSITION 6,437 $6;NUML 
1010 POSITION €,43? #6;DCN1 
1020 [X=43FY=Gt ANSHER=DENZ 
1030 GOSUE 350 
1040 NCXT Q 

1050 GOTO 250 
1060 POSITION 4, 


53? #6"__=__" 
1070 POSITION 4,43 
bt 
as 


1080 POSITION 4,43? 
1090 POSITION &, 
1100 FX=83PY=6ANSWER=DCN1 

1110 GOSUE 250 

1120 NEXT Q 

1130 GOTO 250 

1140 POSITION 4,53? #6;"__ =" 

1150 POSITION 4,43? €4;NUM1 

1160 POSITION 6,43? $6;NUM2 

1170 POSITION 8,43? £6;DENZ 

1180 ['X=43PY=6) ANSWER=DEN1 

1170 GOSUG 350 

1200 NCXT Q 

1210 GOTO 250 

1220 POSITION 7,537 $6;"=___" 

1230 POSITION 4,53? $6;DEN1 

1240 POSITION 6,43? #4;SCALE 

1250 PX=83PY=4 ;ANSWER=DENZ 

1240 GOSUE 350 

1270 NEXT Q 

1280 GOTO 250 

4290 SCALEZ=INT(RND(O)x1041)¢IF SCALEZ 
=SCALE THEN 1290 

1300 ESC=1 

1310 NUML=NUMLXSCALE2}DEN1=DCNIRSCALC2 
SCHOICE=INT (RND (0x84 1) 

1320 ON CHOICE GOTO 560,460,740,820,70 
,780,1060,1140 

1330 GOTO 1140 


1 REM 4444444444444 HHH 
2 REM ¢ SUMS ¢ 
3 REM $ by Allan R. Seayth $ 
4 REK $ Published by Atari Computer # 
5 
b 


= 


= 


REM # = Enthusiasts (N.S.H.) t 
REM $ December 1993 $ 
7 REM Shbbsdsdetetetettt Ht 
10 DIM AG(4)fAg="+-x/" 
20 GRAPHICS 230FEN #1,4,0,"K" 
30 POKE 16,643POKE 53774,64 
49 SETCOLOR 2,0,0 
50 7 #6;"LEVEL OF DIFFICULTY" POSITION 
6,63? $3" (1-99 
60 GET #1,D¢IF B49 OR D>S7 THEN 40 
70 CORRECT=0% ANSWERS=0 }D=D- 48 
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80 ? $6;CHR$(125) {POSITION 13,937 $45" 
level" ;DiFOSITION 7,03? #4; "question's 

ANSHERS# 1 

90 SUM=INT(RND(0)%441)30N SUM GOSUR 17 
0,210,260,290 

100 GOSUE 400 

110 POSITION 5,731F X=X3 THEN ? #45"C0 

RRECT" SCORRICT=CORRECT4 1 

120 IF X<2X3 THEN ? €4;"WRONG"S? CHRS( 

203):GOSUB 370 

130 ANSWERS=ANSWERS+13FOR Z2=1 TO 1003N 

EXT Z 

140 IF ANSWERS=25 THEN ? #4;CHR$(125); 

? $6;CORRECT$" CORRECT'3? #427 $43ANGW 

ERS- CORRECT} "WRONG" GOSUB 140;END 

150 GOTO 80 

160 FOR X=1 10 83FOR Z=40 TO 120:SQUND 
1,Z,10,83NEXT ZINEXT X$RETURN 

170 X1SINT(RND(0)%(104(D/23410)) 

180 XZ=INTCRND(0)*(104(D/2)410)) 

190 GOSUB 3203X3=X2+X1 

200 RETURN 

210 X1=INT(RND(0)x(104(D/23416)> 

220 XZ=INTCRND(O)X(104(D/2)+10)) 

230 IF Xi<X2 THEN X3=X1¢X1=X2:X2=X3 

240 GOSUR 3203X3=X1i-X2 

Za0 RETURN 

260 X1=INT(RND(0)x(104(D/3)48) ) SX2=INT 
(RND(0)%(64D/1.5)) 

270 GOSUB 3203X3=X1xx2 

280 RETURN 

290 X3=INT(RND (0% (104D/4) ) X2=INT (RND 
(09K C54D/1.65)41) X1=X2RX3 

300 GOSUE 320 

310 RETURN 

320 POSITION 4-LEN(STRS(X1)),032 #43Xi 
+A$ (SUM, SUM) 

330 POSITION 6-LEN(STRS(X2)),137 #65X2 

340 POSITION 1,23? #43" " 

300 POSITION 1,437 #4;"___ 

340 RETURN 

370 ? #4;"arnswer was "$X33FOR Z=1 705 

OOSNEXT Z 

390 RETURN 

400 Z=13Y=13X=0 

410 ? CHR$(125);"IF YOU MAKE A MISTAKE 
PRESS SPACERAR'S? "PRESS RETURN WHEN 

CORRECT" 

420 POSITION 6-Z,33? 46;"?" POSITION 4 

-2,3 

430 GET #1,AtIF A=155 AND Z=1 THEN 430 

440 IF A=155 THEN 490 

430 IF A=32 THEN ? CHRS(125) {POSITION 
0,33? 445" "SGOTO 400 

460 IF A<48 OR ADS7 THEN 430 

470 PUT $6,AtX=X+V¥AL(CHRS(A) )aY8Z=Z4 13 

Y=Ya103IF Z=4 THEN 490 

480 GOTO 420 

490 RETURN 


CASSETTE RECORDER PROBLEMS 
by R. S. Vickery 


Like most Atarians, I have had a lot of problems with the ATARI 410 cassette recorder. I 
didn’t know what to do about them until Carl Evans published a series of articles on the 410 
in Antic magazine. Since following his instructions (more or less), the 410 has worked 
perfectly. 


The first step was to clean the heads. These are quite easy to get at when the PLAY key is 
pressed down. Careful rubbing with a swab of cotton wool wrapped around forceps and 
moistened with methylated spirits removed all the brown gunk. 


The azimuth of the play/record head was adjusted next. There is a little hole in the case just 
above the azimuth screw. In the newer models of the 410, this hole is covered by the name 
plate. I played a commercially recorded music cassette with a POKE 54016,52 command and 
turned the azimuth screw backwards and forwards until the treble tones were at their 
loudest, The original setting was quite a long way out. The screw driver for this job must 
not be magnetic, that is, you shouldn’t be able to pick up pins or paper clips with it. 


Some of the errors in loading came when the recorder was jolted, so I opened up the plug on 
the cable. The rivet in the plug was drilled out and replaced by a small nut and bolt. One of 
the wires had come out of its pin. I-crimped it back in and, for good measure, soldered all 
the wires to their pins. 


After all this, the recorder was still unreliable, so I opened up the case and started poking 
about in the electronics. The circuit was pretty much as Carl Evans described it, except that 
all the components were of excellent quality and everything seemed to be working according 
to specifications, 


The only problem was with the width of the pulses on the data output line. They are 
supposed to be 1.47 microseconds long to give 600 bits per second. In fact, the high voltage 
pulses (which the ATARI reads as 1) were only 1.4 microseconds and the low voltage pulses 
(read as 0) were 1.8 microseconds. The fault was in the multiple feedback band-pass filter 
for the high frequency tone. This filter should have a centre frequency at about 5.2 kHz, but 
the actual value was 5.4 kHz, A few calculations showed that the design was wrong, I 
replaced resistor Rii4, which was originally 240 kOhm, with a 270 kOhm resistor. This 
resistor is in the feedback loop of the high frequency filter. The centre frequency was 
brought down to 5.3 kHz and all problems disappeared, 


Continuous tones on the Serial Data Out line (pin 5) are useful for testing the system. The 
high frequency tone can be generated by the following series of POKEs, 

POKE 53768, 80REM AUDCTL 

PORE 53760, 1613REM Set N low byte on voice 1 

POKE 53742, 0REM Set N high byte on voice 2 

POKE 53761, 175REM AUDCI pure tore 

POKE 53763,175:REM AUDCZ pure tone 

POKE 59775, 139REM SKCTL 2-tone output, keyboard enabled 
Change to the low frequency tone with POKE 53760,217, 


I still have a tape of alternating 1's and 0’s which I used for testing the 410 and would be 
happy to lend it to anybody interested in fixing their own machine. 


* * * 


RAN TED 
Any issues of "Computer and Video Games" magazine prior to July ivaz, Also March, April, 
June, July and August 1983, 
Adventure International’s Adventure #12: Golden Voyage 
- Contact Garry Francis (07) 789-1397 (A.H) 
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SPRITE MAKER 


By John Mattes 


After an absence of a couple of months, I am pleased to return to 
pages of ACE with an article on player-missile graphics in FORTH. 


The Team Atari disk has a demo on SCR # 3A which allows you to drive 
a player around the screen with joystick. For those who haven't tried 
it, boot your working disk, (which must already have SCR # 34 and 35 
loaded), insert your source disk and type: 


3A LOAD SPLAY RUNIT 


To create your own players, use the word "SPRITE", the code for 
which is listed in SCR # 18. SPRITE is word which can create as many 
different players as you want. For example on line 8 of SCR # 18, eight 
numbers are put on the stack, and then taken off by the word SPRITE to 
create a player called MAN. Of course the eight numbers define the shape 
of the player - the first one, 18 is the top of its "head" (note the 
reverse order). Similarly the sequence 


FF FF FF FF FF FF FF FF SPRITE BLOB 
will create a player-shape called BLOB. 


To display MAN on the screen (having first set up the playfield) all 
you need to do is type @ MAN. The zero indicates that the shape MAN is 
to become player zero. 


I have modified the Team Atari SCR # 3A so you can use your own 
players, created using SPRITE, and it now appears as SCR # 19, (by using 
3A 19 COPY). The modifications you will need to make are: 


1. Remove ) VARIABLE VP from line 1 (it is needed on SCR # 18). 


2. Delete the last line of SPLAY (which got the Team Atari shape from 
SCR #F) and replace it with 


64 ovP ! ¢ MAN 
(this gets the MAN shape). 


You may have noticed I changed VPOS! by replacing nACHg" with "Qbase 
@ ah +" and nggpp" by "Qbase @". This is because the original code 
would only work properly on a 48 K system - "Team Atari" is a bit flaky 
in places! 


The word SPRITE is interesting because it is a "defining word" - 
that is a word which creates a family of similar words (in this case 
"Dlayers"). Briefly, the €BUILDS part creates a dictionary entry for the 
name following SPRITE (e.g. MAN or whatever) and then takes 8 numbers 
from the stack and compiles them into the dictionary (the "8 Ay DO C, 
LOOP" does this). Now the shape of MAN is permanently associated with 
its name. The DOESS part is executed whenever MAN (or any other word 
defined using SPRITE) is executed. DOES firstly leaves the address of 
the parameter field of MAN (or whatever) which points to the shape bytes 
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of MAN. Then the code following the DOES») is executed. This calculates 
the address in the player table where the shape bytes have to go (SWAP 
1dp * 400 + Qbase & + OVP @ +) end the 8 CMOVE transfers 8 bytes from 
the address left on the stack by DOES to the playfield address and away 
we go (after typing RUNIT)! 


You can return to FORTH by pressing any key, define a new player 
shape on the spot (in the text window) using SPRITE and replace the old 


shape with the new one (0 BLOB, 9 GUN ........ yg 
18 19 
( PLAYER MISSILE } 0 ( PLAYER/MISSILE DEMO-RZ i/1 ) 
Q VARIABLE OVF 1 64 VARIABLE OHF 
2 0 VARIABLE OVPOLD 
23 SFE HIMEM @ i+ FO00 AND 800 
: SPRITE «BUILDS & 0 DO C, LOOP 4 ~ DUP Qhase | 17F + 
DOES: SWAF 100 % 400 + a HIMEM ' 5 
Qbase @ + OVP @ + & CMOVE ; 6 } GETFS OVF ' ROT BLOCK ROT + 
7 Qhase @ 400 + OVF @ + 
§ ROT CMOVE ; 


+ SFLAY STOF 0 0 HOS! 7 GR, 
SFE Qhase 1+ C@ FMBASE 
C! 2A 0 COLFM' 0 0 
SIZE! 3E 0400 C! SE 
DMACTL C! 3 GRACTL C! 
64 0VF ' 0 MAN} 

+ CLRFM Qbase @ 800 ERASE } 

i0 + MOVEH 0 STICK F XOR C AND DUP 


tr 


0 

1 

2 

3 

4 

J 

6 

7 

8 42 24 18 18 18 24 SA 18 SPRITE 
9 MAN 
A 

£ 

C 

D 

C 

r 


AMO oGa Dp 





{1 il IF 2 / 3 - ENDIF OHP @ 
12 12 + DUP OHP ! 0 HROS! } 

13 13.) VPOS! OVPOLD @ Qbase @ 400 + + 
14 14 DUF Qbase @ 8 CMOVE 8 ERASE 
5 {5 fibase @ 400 + + Qhase @ SWAP 
14 14 8 CMOVE } 

17 17 + MOVEV 0 STICK F XOR 3 AND DUP 
18 18 IF 2 x 3 - ENDIF -DUP 

19 19 IF OVP @ DUP OVPOLD ! + 
1A 1A DUF OVP ! VFOS! ENDIF } 
1E 1B + RUNIT BEGIN MOVEH MOVEV 2FC 

ic ic C@ FF = NOT END } 

1D 1D & GPRIOR C! 35 

1E --> 1E 

iF iF 


Meeting Dates for 1984 


#éth February 
ath March 
aZnd April 
7th May 
#4th June 
znd July 
#4th August 
3rd September 
#8th October (due to Labor Day Ifoliday) 
ath November 
43rd December 
* indicates release dates for INSIDE INFO subject ta the whims and fancies of the new 
Editor. As there is no meeting in January, please ensure all submissions for February’s 
issue are posted to reach The Editor by ist January, 1964, 
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OVERSEAS MAIL ORDERING 


by Chris Fitzgerald and Garry Francis 


This article will examine the nitty gritty details of buying ATARI software and accessories 
from overseas - principally the U.S.A. It draws heavily on our personal experiences, but do 
not quote us on prices or legal aspects as these are constantly changing: 


Why Order from Overseas? 
There are several reasons why you may want to buy goods from overseas, The most likely 


one is to Save money; but don’t count on it! You will have to pay for packing and return 
postage and possibly import duty and sales tax. These will make your purchase almost as 
expensive as if you had bought it here in the first place. 


A second reason is that the goods you require just aren’t available in Australia! Have you 
seen all the upgrade chips, new disk drives and plethora of software that we constantly read 
about in the magazines? They can only be bought from overseas! 


Deciding What To Buy 
Assuming that the item you wish to buy is not available in Australia, you may have to buy it 


sight unseen. Don’t let glossy advertisements and colourful descriptions sway your 
judgement. Wait until you've read a few unbiased reviews in the computer magazines before 
making the decision to buy. In the case of software, you can read the reviews from "The 
Book of ATARI Software 1983" (which is currently on sale at the Pocket and Technical 
Bookshop and also in our library). Alternatively, you can make your decision based on the 
software demonstrations at meetings. We have shown a lot of software that’s been bought 
overseas and much of it is unavailable in Australia, 


Selecting A Dealer 

Once you know what to buy, you’ll have to decide who to buy it from. In some circumstances, 
you won’t have any choice. Small add-ons and gadgets and some software are only available 
from the manufacturer. On the other hand, "big name" products are Usually available froma 
multitude of retailers and mail order houses. Retailers charge normal retail prices and 
usually don’t have very good (if any) mail order facilities, On the other hand, mail order 
houses have low overheads and hence lower prices - as much as 30% lower! A good mail order 
house can also fill your order and have it in the post within 74 hours! But be warned that 
some mail order firms may not think twice about ripping you off! Common tactics include 
advertising items that aren’t yet available, not carrying goods in stock until you actually 
order them and sending you a different item if the one you ordered was not in stock. Ask 
around at a meeting to find out which firms are reputable and which are not, 


Once you've selected a dealer, send for a price list or catalogue, Then buy only one or two 
items on your first order. These early experiences will enable you to determine how honest 
and reliable the firmis., Don’t send large amounts of money under any circumstances unless 
you are confident of the firm concerned, 


Tlow Much Do You Send? 
Once you have established which firm you wish to deal with, you need to work out how much 
money to send to cover your goodies. One very important point to remember is that, at 
present, U.S. dollars cost more than Aussie dollars! The exchange rate varies from day to 
day, but is currently around $A0,.70 to $US1.00, In other words, multiply the cost in U.S, 
dollars by i.1 to see what you’ll have to pay in Aussie Dollars ~- and remember it’ll always be 
more! Sorry. 


You should also allow enough extra money for the firm to cover the cost of packaging and 
return postage. Even though their ads may state that packaging and mailing are included, 
this usually refers only to the country of origin. Surface mail is cheap, but takes 4 tod 
weeks to arrive. You’re much better off with airmail, which takes only 1 or 7 weeks, but is 
far more expensive. We generally allow £053.00 for airmail postage on a disk or cassette 
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and tUS5,00 for a cartridge, Books are generally much heavier and will cost ¢US&.00 to 
$0515.00, 


Methods of Payment 
Money Order: 
This is available from the “banking section" of your Post Office, You'll have to fill out a 
form and sign a declaration to state that the money is not for the payment of goods. 


Money Orders can be fairly expensive. Apart fram the cost of the amount you want to send, 
you’ll be up for $3.20 commission for the first $40.00 and Sc per dollar (or part thereof) for 
anything more. The exchange rate at the Post Office is also higher. 


A major disadvantage of the Money Order is that you’ll get nothing to send with your letter 
as proof of payment. The Post Office sends your money separately, You’ll immediately be 
overwhelmed by a feeling of vulnerability, as no one on this earth is going to send you your 
goods until they’ve seen the colour of your money. You have to place too much trust in the 
Post Office and the dealer for our liking, 


International Drafti 

This is the normal method of payment. Go to the Overseas Transactions or Enquiries counter 
of your bank and tell them that you’d like an International Draft in U.S. currency. At some 
banks, the first question they’ll ask is “Do you have an account with us?". If your answer is 
no, then you may be out of luck. 


You will have to fill in an application form giving details of your name and address, the 
beneficiary’s name and address and the amount, 50 have all these details beforehand. The 
teller will make out a draft to your requirements. This is virtually the same as a normal 
cheque, except that it will be in U.S, currency payable at a U.S. bank, 


When you get your International Draft, remember to check that all details on the draft are 
correct. (The bank once forgot to sign one of our drafts!) Your signature is only required on 
the application form, not the draft itself, 


Get a copy of the application form for your own record (it is the only proof of your 
transaction) and make sure that the draft serial number has been written on it. Enclose the 
original draft with your order before mailing. 


An International Draft costs $2,00 at the National Australia Bank, whereas Westpac and the 
Commonwealth charge #3.00 and ANZ charges $4.00. Note that smaller branches may take a 
lot longer to make out your draft than the larger, city banks, since they may not be familiar 
with the system, 


Credit Card! 

In the near future, this may be the most convenient method to pay for your goods from 
overseas. You will notice in most U.S. mail order ads that you can supply a credit card 
number rather than pay by cheque. The most popular are Visa and Master Card. Both will be 
available through certain banks in February to March 1754, Visa is presently available only 
through the Australian Bank Ltd., but next year it will be available through the ANZ and 
State Banks. Master Card will be available through Westpac, Commonwealth and National 
Australia Banks. 


It wasn’t possible to get many details on either of these cards, but in both cases it will be 
possible for the overseas dealer to instantly verify your credit number if they care to make a 
phone call, We were also assured that no company would risk charging more than they were 
supposed ta, It is not known whether there will be an annual fee to own a card; what charges 
there will be for its use or if you will be required to fill out any customs declarations. It 
appears that the system is still being worked out by the individual banks, so we can only 
wait and see, 


When you use this method of payment, check to see that the firm doesn’t have a surcharge for 


the use of credit cards, 


Sending Your Order 
Firstly; make sure you put a return address on all your mail! 


Surface Mail} 
This costs only 45 cents for the standard letter (Post Office preferred size, weighing up to 
20 grams), but will take about “ months to get to the U.S.A, 


Airmail} 
It will cost you 75 cents to send a standard letter to the U.S.A. via airmail and will only take 
about a week to arrive, 


Reqistering Letters: 
You can register your letter for an extra $3,230, Registered articles must be signed for by 


the receiver. This means that you can be pretty sure that the letter will arrive. Note 
however that you can’t certify overseas mail, 


Receipt of Acknowledgement: 
For yet another 65 cents, you can get a Receipt of Acknowlegement, This is only available 


for registered articles and is in the form of a card which will be attached to your letter, The 
receiver must sign the card upon receipt of your letter and the U.S. Post Office sends it back 
to you. This is handy if you want to be absolutely certain that your letter was received, 
especially if you sent a lot of money. 


When There is No Reply 
Hoy, have you got problems! You can usually expect goods to arrive around two weeks after 


mailing (assuming airmail both ways), but wait for four weeks before following up on an 
overdue order, 


There are a couple of things that can go wrong with your order! 

- The dealer can do a moonlight flit with your money ~ always the first thought, but it 
hasn’t happened yet. 

- Your letter could have been lost or delayed on the way over, 

- The goods could have been lost or delayed on the way back. 

~- You didn’t send enough money to cover airmail postage and the goods have been sent 
via surface mail. 

~ There may be a delay in filling your order due to the goods being out of stock. 

- The goods may not yet be available, e.g. the RANA disk drives have been advertised 
for ages in the States, yet they have only just been released - and not without 
problems. Adventure International’s “Sword of Sisyphus” was advertised 12 months 
before it was available, 


At any rate, if your goods do not arrive within a reasonable time, here is what you should do, 
If you sent a money order, take your receipt to the Post Office and for #5 cents you can get 
either an Advice of Payment, a Revalidation or have the payment stopped. 


If you sent an International Draft, take your receipt along to the bank of issue and ask them 
to stop payment. You will have to sign an indemnity form, which virtually states that you’re 
nat trying to rip anyone off. If the cheque was cashed, the bank will notify you of when and 
where it was cashed after about a week. If the cheque has not yet been cashed; you may have 
to wait one or two months before the bank will hand back your money (since your cheque may 
never be presented), 


When the bank pays you, they will re- purchase your original cheque at that day’s (buying) 
exchange rate. If your cheque is returned to you, it is merely a matter of cashing your 


cheque for Australian money, The National Australia Bank makes no charges for any of 
these services, but other banks may be different, 


Apart from stopping payment of the cheque, you should also write to the dealer again ta 
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check on what has happened. You could register the letter and get an Acknowledgement of 
Delivery to ensure that it arrives. 


Import Duty 
When your mail arrives from overseas, it goes to the Redfern Mail Exchange for examination 


by Customs. Any computer related articles will be put aside and examined separately by the 
Senior Inspector. Ile is a computer owner himself, so you can’t try pleading ignorance or 
pulling the wool aver his eyes, Ile is well aware of the type and value of the stuff you are 
importing, 


Import duty is payable on mast things you would import for your ATARI. To estimate how 
much duty you may have to pay, you must convert the U.S. value of your goods to Aussie 
dollars and multiply the resultant figure by the rate of duty payable. There are thousands of 
different categories for which different rates apply, but the following section should give 
you a guide. When you’ve worked this out, add it to the original amount and apply 20% sales 
tax. The amount that you’ll have to pay to Customs is the amount of Import Duty PLUS the 
amount of Sales Tax. 


Duty Payable 

The purpose of import duty is to bring the price of imported goods up to the same price that 
you would expect to pay if they had been made in Australia. The idea behind this is to 
protect our local industries. It could be argued that as there is no local industry producing 
ATARI products, that we are being ripped off, True, Dut other computer related products 
are made locally, so it is these that are being protected. We are also told that even if there 
was no local computer industry, the potential exists, therefore the potential industry should 
be protected, Our industrial laws work in strange ways! 


Import duty on computers is 5%. Other hardware such as disk drives and printers are 
generally 2%. Spare parts are generally the same rate as the item that they are meant to fit 
ins For example, a new component board for a computer would be 5%, but a similar board for a 
disk drive would be 2%, Notable exceptions are single integrated circuits which are 2% and 
bare printed circuit boards with no components which are 35%. Software is also a whopping 
35%, but there is no import duty (or sales tax) on books, 


You cannot wangle your way out of the 35% duty on software. If your software consists of a 
disk worth $5 and a printed manual worth $95, you will still have to pay duty on the full 
amount of $100, The reasoning behind this is that the software constitutes both the program 
(on disk or cassette) and the documentation, as neither can be used without the other. It is 
however quite legal to have your media and documentation sent (and invoiced) separately, in 
which case you will only have to pay duty on the value of the disk or cassette, but not the 
printed matter, 


If you only import small packages of say one or two programs at a time, then it is unlikely 
that you will get hit by Customs. 


A Final Note 
Just about the only thing that we haven’t mentioned is that if you send for electrical goods 
(i,e, disk drives, printers, etc,), the U.S. has a different power supply to us, so be sure that 
you can alter the power requirements to suit the Australian power supply. With ATARI 
products, the U.S. adapter units are no good in Australia, but they are readily replaced by 
adapters available locally. 


Tinally, don’t buy an ATARI computer in the U.S.A. as there are two different versions 
available. The Yanks use NTSC, whereas we use PAL. You cannot buy a PAL system in the 


States. If you buy an NTSC version, you’ll be up for all sorts of extra costs when you get it 
home - including an NTSC monitor. 


HAPPY COMPUTING! 
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BASICS OF ASSEMBLY LANGUAGE 


by Craig Pizzell and Ken Shiu 


This series of articles will attempt to help people starting out or interested in Assembly 
Language. The explanations will be made as simple and straight forward as possible, 


Opcodes: 

Opcodes are instruction codes used by the programmer which, when assembled, are translated 
into machine code. Opcodes are identified by a three letter mnemonic. The most commonly 
used instruction is the LDA instruction; which means LoaD the Accumulator. This 
instruction places a one byte number (i.e, 0 to 255) in a 6507 register called the accumulator. 
The accumulator is used to temporarily hold and manipulate data. (Just as a point of 
interest, there are other registers known as X, Y and Status. We will discuss them later.) 


We will compare an LDA instruction to BASIC using LDA #10 as an example. In BASIC, it 
would be similar to A=10, except that A is a variable, (You don’t have to use A. Any 
variable will do.) The "#" symbol indicates an immediate operand, which simply means load 
the accumulator with the decimal number 10, If the "#" was omitted, it would mean load the 
accumulator with the contents of decimal address 10. In GASIC, it would be similar to 
A=PEEK(10), 


STA is the reverse of the LDA instruction. This will STore the contents of the Accumulator 
into the address specified after the instruction. The STA instruction has the same effect as 
POKE in DASIC. Ilere is an example: 
Assembly Larquage: LDA $0 jLoad accumulator with 0 
STA 710 ;Store contents of accumulator into location 710 


BASIC: A=03REM Load variable A with 0 
FOKE 710,AtREH Store contents of variable A into location 710 


The semicolon indicates a comment. Comments are used by the programmer to make the 
program easier to read and therefore easier to debug, 


The example below is a little more complex. It will change your screen colours to black on 
white and make the cursor invisible as soon as something is printed. 
Assenbly Language: 10 *=$600 jLegin program in page 4 
20 LDA #0 jLoad accumulator with 0 
30 STA 709 $Store at address 709 
40 LDA #14 }Load accumulator with 14 
30 STA 710 Store at address 710 
60 LDA #1 jLoad accumulator with 1 
70 STA 752 ;Store at address 752 
80 .£ND 


BASIC: 10 FOKE 709,0 
20 PORE 710,14 
30 PORE 75241 
40 END 


The above Assembly Language listing is called the source code, This is the human readable 
form of an Assembly Language program. Note that there are two blanks between the line 
number and the opcode. To run the sample program with the Assembler/Cditor cartridge, 
type in the source listing, then type "ASM". The ASM command will translate your source 
program into object code, This is the machine readable form of the code, Next type "BUG", 
then type "G400" to execute your program. The 600 is your starting address from the sample 
program (decimal 1534), In DEBUG made, all numbers are expected to be hexadecimal. 


New symbols have been introduced in the sample program. These provide instructions for the 
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assembler, but are not translated into machine language, #= tells the assembler where to 
begin storing the object code. On other assemblers, this could be ORG for ORiGin, eg, 10 
ORG $600, The $ sign before the address means the number following is a hexadecimal 
number, Therefore, line 10 in the program tells the assembler that the starting address of 
the program is to be hexadecimal address 400, The .END tells the assembler that it has 
reached the end of the source code. The line numbers are also for the benefit of the 
assembler. Many assemblers do not use line numbers at all. 


Look over what we have covered and try using the information in your own simple programs. 
We have only talked about a few opcodes in this article. In the next article, we will study 
some more, 


* * x 


BOOK REVIEW 


Entroductin Ta rorerTit 
Reviewed by Gregg Ramsey 


This book is written by Ken Knecht, a freelance author, broadcast engineer and TRS- 20 
programmer. It is designed specifically for a version of FORTH known as MMSPORTII for the 
TRE&- 30, but Knecht claims that most of the examples can be adapted to run on different 
versions, 


From the ATARI programmer's point of view, I think it is of more value to the experienced 
FORTI user because it has quite a few words that are not included in the standard 
fig- TORTI, The examples that come to mind are the string handling functions. These 
include most of the usual Microsoft functions like LLTT¢, RIGIHT#, MID¢ and INSTR. 


For someone starting off with rORTH, I think there are better books, like "Starting FORTH" 
by Leo Brodie. Drodie’s book doesn’t concentrate on one specific implementation of the 
language, but covers the universally accepted fig- TORTI, It would suit the Atarian who has 
just obtained a copy of the public domain fig-TORTH from the Software Exchange and doesn’t 
need all the extra work of weeding out parts that simply don’t apply. 


The format of "Introduction to TORTII" is very good, The reader is not required to have any 
previous knowledge of FORTH, reverse polish notation or stacks. Instead, it is assumed 
that the programmer knows a little about Microsoft DASIC. Just about every FORTH 
program has an equivalent GASIC program next to it, This helps if the TORTI version is 
hard to grasp. The screen editor commands, 1/0 commands and others are quite different to 
those found in fig- PORTH, 


In summary, “Introduction To PORTH" is more formal than Grodie’s book (which is liberally 
sprinkled with humour) and is set out in a clean, logical order. I must emphasize that it has 
been written for a version of TORTI! different to those available for the ATARI, so I cannot 
recommend it for a beginner, Tor the person with some experience in PORTH, this book may 
offer new words and ideas that can be very useful, It also explains things in a different way 
to other books, so that a concept that was hard to visualise in another book, might just click 
when you read Knecht’s explanation of it. 


* * * 


FOR SALE 
Cartridges! Star Raiders, Chess, Pacman, Assembler Editor 
Disks! MAC-45 Macro Assembler, BASIC At, APX fig-FORTH, Mouskattack, Apple Panic, 
Threshold 
Cassettes! Giant Slalom, Shaft Raider, Space Chase, Lunar Lander 
All approximately half price or less in original packages with instructions, 
ATARI S22 thermal printer with manual, sawer pack, connecting cable (does not require S50 
Interface Module) and screen dump software. Excellent condition. $2600, 
Contact Tony Dinallc (02) 442-7777 Ext. £3 (Bus. Hours) 
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ATARI 600XL 





DIG DUG™ 


DONKEY KONG ™ The cheerful miner only wants to un- 
5% DISCOUNT Donkey Kong steals Mario's girl, ne Beloveditnaits ond veggies 
takes her up to his hideout, and dares ut first he has to pop the aragons 
TO A.C.£. MEMBERS , ; 


the intrepid little hero to fight his way 
up to save her. An instant classic! 


ATARI PAINT 


Using this new exciting program 
called “PAINT” you become the 
artist - your brush is the 
joystick, and your canvas 

is your television set. 

Create paintings of your own, 
using the tremendous colour 
capacities of your 





and monsters that guard them. 


ATARI LOGO 


Plug in an ATARI® Logo Programming 


Language cartridge, and enter a 
stimulating environment where 
mathematical ard logical thinking 


become second nature. ATARI® Logo 


is so simple that preschoolers can 
explore profound ideas in words 


they can understand. Learners of all 


ages gain insights into geometry, maths or 
ATARI® COMPUTER. physics using ATARI® Logo’s Turtle Graphics. 





TT COMPUTER WAVE TIT 








PTY LTD 
NOW AT STILL AT 
325 GEORGE STREET LOWER GROUND FLOOR 
SYDNEY GRACE BROS STORE 
(between Wynyard Station 436 GEORGE STREET 
and Martin Place) SYDNEY 
Tel. 29 1631 Tel. 231579} 


We believe that our prices are 
the best around. 


WYNYARD STORE OPEN 7 DAYS A WEEK 
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